TeX 1995 July/TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO/tex-k/tex-k-archive.past/tex-k-archive.gz/tex-k-archive/[e-mail]_Thu Mar 17 07:17:34 1994.msg

Internet Message Format | 1994-10-11 | 7KB

Received: from uluru.Stanford.EDU by cs.umb.edu with SMTP id AA01069
  (5.65c/IDA-1.4.4 for <[e-mail]>); Thu, 17 Mar 1994 18:14:47 -0500
Received: by uluru.Stanford.EDU (4.1/inc-1.0)
    id AA02765; Thu, 17 Mar 94 15:17:34 PST
Date: Thu, 17 Mar 94 15:17:34 PST
From: [e-mail] (John Interrante)
Message-Id: <[e-mail]>
To: [e-mail]
Subject: dvipsk-5.528a: a few changes to make MakeTeXPK.in more useful

I needed to make a change or two to allow MakeTeXPK to call gsftopk
and thought I would suggest some improvements for the next release.
The first improvement I suggest is to replace all commands of the form

: ${variable=value}

with the more straightforward command

variable=value

The sh(1) man page says that a : command does nothing and returns a
zero exit status.  Variable substitution still takes place, however,
and since the variable=value assignment is enclosed inside ${}, it is
executed even though the result of the ${} is immediately thrown away.
When I first modified MakeTeXPK to call gsftopk, I thought that the :
command was equivalent to # (a comment line), so I changed

: ${gsftopk=""}

to

${gsftopk="gsftopk"}

I was pretty surprised when MakeTeXPK then called gsftopk twice
instead of only once.  Then I realized that ${gsftopk="gsftopk"} meant
not only assign the string "gsftopk" to the variable gsftopk, but also
substitute $gsftopk's value into the command line, thus calling
gsftopk without any arguments.  All of this confusion would have been
avoided if the command had been

gsftopk=""

in the first place.  Then I would have changed it to

gsftopk="gsftopk"

and it would have worked fine.  There is no reason at all why the
perfectly fine command variable=value should be replaced with the
cryptic-looking command : ${variable=value}, so I have de-obfuscated
all such lines in MakeTeXPK.

Once I finally got MakeTeXPK to call gsftopk only once, I had to make
it echo the actual filename of the generated pk file.  It was echoing
the name of the font, not the filename of the pk file.  It was also
leaving the pk file in the current directory and I didn't like that so
I made it move the generated pk file into the same directory that
MakeTeXPK moves the Metafont-generated pk files.

Finally, I took a look at the rest of MakeTeXPK and tried to make
things a little more consistent (i.e., saying "Running command"
everywhere instead of saying "Running command" here and just "command"
there, forgetting to check a command's exit status, etc.).

        John

*** dvipsk/MakeTeXPK.in.save    Mon Feb 21 14:42:32 1994
--- dvipsk/MakeTeXPK.in    Thu Mar 17 14:27:17 1994
***************
*** 22,42 ****
  echo "Running MakeTeXPK $*" 1>&2

  # The root of where to put the new file. The Makefile substitutes for this.
! : ${DESTDIR=${MTP_DESTDIR-@mtp_destdir@}}

  # Define to `gsftopk' or `ps2pk' or whatever to make PK files for
  # PostScript fonts. If this is defined, MAPFILE must also be defined to
  # be your psfonts.map file or some equivalent. The Makefile substitutes
  # for this, too. You can get gsftopk from
  # math.berkeley.edu:pub/Software/TeX/gsftopk.tar.Z.
! : ${gsftopk=""}
! : ${MAPFILE=@configdir@/psfonts.map}

  # If this directory doesn't exist, the Sauter stuff won't be attempted.
! : ${sauterdir=/usr/local/src/TeX+MF/tex82/utilities/sauter}

  # Likewise, for the F3 stuff.
! : ${f3dir=/groups/dtrg/typescaler/fonts/f3b}

  # TEMPDIR needs to be unique for each process because of the possibility
  # of simultaneous processes running this script.
--- 22,42 ----
  echo "Running MakeTeXPK $*" 1>&2

  # The root of where to put the new file. The Makefile substitutes for this.
! DESTDIR=${MTP_DESTDIR-@mtp_destdir@}

  # Define to `gsftopk' or `ps2pk' or whatever to make PK files for
  # PostScript fonts. If this is defined, MAPFILE must also be defined to
  # be your psfonts.map file or some equivalent. The Makefile substitutes
  # for this, too. You can get gsftopk from
  # math.berkeley.edu:pub/Software/TeX/gsftopk.tar.Z.
! gsftopk=""
! MAPFILE=@configdir@/psfonts.map

  # If this directory doesn't exist, the Sauter stuff won't be attempted.
! sauterdir=/usr/local/src/TeX+MF/tex82/utilities/sauter

  # Likewise, for the F3 stuff.
! f3dir=/groups/dtrg/typescaler/fonts/f3b

  # TEMPDIR needs to be unique for each process because of the possibility
  # of simultaneous processes running this script.
***************
*** 89,100 ****

  # Do we have a GF file in the current directory?
  if test -r $GFNAME; then
!   echo "gftopk ./$GFNAME $PKNAME" >&2
!   gftopk ./$GFNAME $PKNAME
!   # Don't move the font; if the person knows enough to make fonts, they
!   # know enough to have . in the font paths.
!   echo $PKNAME
!   exit 0
  fi

  # Do we have an F3 font?
--- 89,104 ----

  # Do we have a GF file in the current directory?
  if test -r $GFNAME; then
!   echo "Running gftopk ./$GFNAME $PKNAME" >&2
!   if gftopk ./$GFNAME $PKNAME; then
!     # Don't move the font; if the person knows enough to make fonts, they
!     # know enough to have . in the font paths.
!     echo $PKNAME
!     exit 0
!   else
!     echo "gftopk failed." >&2
!     exit 1
!   fi
  fi

  # Do we have an F3 font?
***************
*** 102,108 ****
    # You will need Sun's f3tobm program, plus a program I wrote.
    # See ftp.cs.umb.edu:private/f3totex.
    cd $f3dir || exit 1
!   echo "f3topk -r $DPI $NAME" >&2
    if f3topk -r $DPI $NAME; then
      # Best if f3topk echoes its output filename, I think.
      exit 0
--- 106,112 ----
    # You will need Sun's f3tobm program, plus a program I wrote.
    # See ftp.cs.umb.edu:private/f3totex.
    cd $f3dir || exit 1
!   echo "Running f3topk -r $DPI $NAME" >&2
    if f3topk -r $DPI $NAME; then
      # Best if f3topk echoes its output filename, I think.
      exit 0
***************
*** 114,122 ****

  # Is this a PostScript font?
  if test -n "$gsftopk" && egrep \^$NAME'([     ]|$)' $MAPFILE >/dev/null; then
!   echo "Running $gsftopk $NAME $DPI." >&2
    if $gsftopk $NAME $DPI >&2; then
!     echo $NAME
      exit 0
    else
      echo "$gsftopk failed."
--- 118,133 ----

  # Is this a PostScript font?
  if test -n "$gsftopk" && egrep \^$NAME'([     ]|$)' $MAPFILE >/dev/null; then
!   echo "Running $gsftopk $NAME $DPI" >&2
    if $gsftopk $NAME $DPI >&2; then
!     test -d $DESTDIR \
!       || mkdir $DESTDIR \
!       || (echo "${DESTDIR}: MakeTeXPK could not create directory." >&2; exit 1)
!     mv $PKNAME $DESTDIR/pktmp.$$ \
!       || (echo "$0: Could not mv $PKNAME $DESTDIR/pktmp.$$." >&2; exit 1)
!     cd $DESTDIR || exit 1
!     mv pktmp.$$ $PKNAME
!     echo $DESTDIR/$PKNAME
      exit 0
    else
      echo "$gsftopk failed."